PROGRAM parser;

type PaisAfricano = (Etiopia, Nigeria, Espana, Marruecos);
	TArray1D = array[1..2][3..4][5..6] of String;
	
	tRango = record
		f,c: tDimension;
		p: ^puntero;
	end;
	
var primerPais: PaisAfricano;

procedure Procedimiento (b: mongolean); forward;
	begin
		x := true;
		y := 23;
	end;

procedure HagoMenosQuePerry(b: parametroInsulso); forward;
	begin
	end;

function Funcion (pitipiti: potopoto) : integer;

begin
	Result := x.y.blabla - 2;
end;

begin
	new(p);
	DISPOSE(p);
	p^ := 2;
	x := p^;
	p^.cacho.asignacion[3].de[4][3][narices] := como^.mola[p2^]*(se.la[come]-enterita);
	esto^.si[que].es:=l[3][3].t;
	{x := @p; <-- no lo coge el maravilloso léxico} 
	case 2 of
			-5: z[6] := true; break;
			1: x:=13; break;
 			2: b:=true; break;
			{3: Writeln('caso 3'); break;}
		else
			b:=false;
	end
	while x>12 do
	begin
		x1 := x1 - 1;
	end

	repeat
		x:=x+3;
	until true;


	x.y.z := 15 + 3;
	if true then
		x := false;
		if false then
			x := 19;
		else
			x := 20;

end.